home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Gooey1.3.1 / C Templates / Links < prev    next >
Text File  |  1993-11-11  |  5KB  |  154 lines
  1. $$Loop Link.Open                        
  2. $$if IsWindow
  3.         Open_$Worksheet.name$();            /* Open this window */
  4. $$endif
  5. $$if IsModalDialog
  6.         MPD_$Worksheet.name$();            /* Open this modal dialog */
  7. $$endif
  8. $$if IsModelessDialog
  9.         Open_$Worksheet.name$();        /* Open this modeless dialog */
  10. $$endif
  11. $$if IsAlert
  12.         PA_$Worksheet.name$();            /* Open this alert */
  13. $$endif
  14. $$EndLoop
  15. $$Loop Link.Close
  16. $$if IsWindow
  17.         Add_UserEvent(UserEvent_Close_Window,ResW_$Worksheet.name$,0,0,nil);    /* Close this window */
  18. $$endif
  19. $$if IsModelessDialog
  20.         Add_UserEvent(UserEvent_Close_Window,ResD_$Worksheet.name$,0,0,nil);    /* Close this modeless dialog */
  21. $$endif
  22. $$EndLoop
  23. $$Loop Link.SysBeep
  24.         SysBeep(40);                    /* Do a SysBeep */
  25. $$EndLoop
  26. $$Loop Link.Sound
  27.         Play_The_Sound(ResS_$Sound.name$);        /* Play a sound */
  28. $$EndLoop
  29. $$Loop Link.MenuEnable
  30.         EnableItem(Menu_$Menu.name$,0);            /* Enable a menu list */
  31. $$EndLoop
  32. $$Loop Link.MenuDisable
  33.         DisableItem(Menu_$Menu.name$,0);            /* Disable a menu list */
  34. $$EndLoop
  35. $$Loop Link.ItemEnable
  36.         EnableItem(Menu_$Menu.name$,MItem_$MenuItem.name$);        /* Enable a menu item */
  37. $$EndLoop
  38. $$Loop Link.ItemDisable
  39.         DisableItem(Menu_$Menu.name$,MItem_$MenuItem.name$);        /* Disable a menu item */
  40. $$EndLoop
  41. $$Loop Link.ItemCheck
  42.         CheckItem(Menu_$Menu.name$,MItem_$MenuItem.name$,true);    /* Check a menu item */
  43. $$EndLoop
  44. $$Loop Link.ItemUncheck
  45.         CheckItem(Menu_$Menu.name$,MItem_$MenuItem.name$,false);    /* Uncheck a menu item */
  46. $$EndLoop
  47. $$Loop Link.ItemToggle
  48.         GetItemMark(Menu_$Menu.name$,MItem_$MenuItem.name$,&tempChar); /* Toggle a menu item from checked to unchecked or other way */
  49.         if (tempChar == 0)
  50.             CheckItem(Menu_$Menu.name$,MItem_$MenuItem.name$,true);    /* Check a menu item */
  51.         else
  52.             CheckItem(Menu_$Menu.name$,MItem_$MenuItem.name$,false);    /* Uncheck a menu item */
  53. $$EndLoop
  54. $$Loop Link.PageSetup
  55.         PageSetup();                    /* Do Printing PageSetup */
  56. $$EndLoop
  57. $$Loop Link.Print
  58.         Print_The_Data();                /* Do Printing */
  59. $$EndLoop
  60. $$Loop Link.FileOpen
  61.         Open_The_File();                /* Do file open */
  62. $$EndLoop
  63. $$Loop Link.FileSave
  64.         Save_The_File();                /* Do file save */
  65. $$EndLoop
  66. $$Loop Link.VolumeSelect
  67.         Select_Volume();                /* Select a volume */
  68. $$EndLoop
  69. $$Loop Link.Check
  70. $$if IsWindow
  71.         SetCtlValue(theWS->Ctrl_$Control.name$,1);        /* Set the checkbox */
  72.         theWS->Value_$Control.name$ = 1;
  73. $$endif
  74. $$if IsDialog
  75.         GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect);    /* Get the item handle */
  76.         CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  77.         SetCtlValue(CItem,1);
  78.         Rec_$Worksheet.name$.Value_$Control.name$ = 1;
  79. $$endif
  80. $$EndLoop
  81. $$Loop Link.Uncheck
  82. $$if IsWindow
  83.         SetCtlValue(theWS->Ctrl_$Control.name$,0);        /* Clear the checkbox */
  84.         theWS->Value_$Control.name$ = 0;
  85. $$endif
  86. $$if IsDialog
  87.         GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect);    /* Get the item handle */
  88.         CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  89.         SetCtlValue(CItem,0);
  90.         Rec_$Worksheet.name$.Value_$Control.name$ = 0;
  91. $$endif
  92. $$EndLoop
  93. $$Loop Link.Radio
  94. $$if IsWindow
  95.         Do_A_Checkbox(theWS,theWS->Ctrl_$Control.name$);            /* Select this radio */
  96. $$endif
  97. $$if IsModalDialog
  98.         SetCtlValue(CItem,1);
  99.         Rec_$Worksheet.name$.Value_$Control.name$ = 1;        /* Set the current Radio value */
  100.  
  101.         $$Loop RadioGroup
  102.         ClearTheRadio(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&Rec_$Worksheet.name$.Value_$Control.name$);
  103.         $$EndLoop RadioGroup
  104. $$endif
  105. $$if IsModelessDialog
  106.         myEvent.what = mouseDown;
  107.         Do_$Worksheet.name$(&myEvent,Rec_$Worksheet.name$.theDialog,ResD_$Control.name$);    /* Select this radio */
  108. $$endif
  109. $$EndLoop
  110. $$Loop Link.Hide
  111. $$if IsWindow
  112.         HideControl(theWS->Ctrl_$Control.name$);            /* Hide a control */
  113. $$endif
  114. $$if IsDialog
  115.         GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect);    /* Get the item handle */
  116.         CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  117.         HideControl(CItem);                                    /* Hide a control */
  118. $$endif
  119. $$EndLoop
  120. $$Loop Link.Show
  121. $$if IsWindow
  122.         ShowControl(theWS->Ctrl_$Control.name$);            /* Show a control */
  123. $$endif
  124. $$if IsDialog
  125.         GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect);    /* Get the item handle */
  126.         CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  127.         ShowControl(CItem);                                    /* Show a control */
  128. $$endif
  129. $$EndLoop
  130. $$Loop Link.Dim
  131. $$if IsWindow
  132.         HiliteControl(theWS->Ctrl_$Control.name$,255);        /* Dim, disable, a control */
  133.         theWS->Enable_$Control.name$ = false;
  134. $$endif
  135. $$if IsDialog
  136.         GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect);    /* Get the item handle */
  137.         CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  138.         HiliteControl(CItem,255);                            /* Dim, disable, a control */
  139.         Rec_$Worksheet.name$.Enable_$Control.name$ = false;
  140. $$endif
  141. $$EndLoop
  142. $$Loop Link.Undim                        
  143. $$if IsWindow
  144.         HiliteControl(theWS->Ctrl_$Control.name$,0);        /* Undim, enable, a control */
  145.         theWS->Enable_$Control.name$ = true;
  146. $$endif
  147. $$if IsDialog
  148.         GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect);    /* Get the item handle */
  149.         CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  150.         HiliteControl(CItem,0);                                /* Undim, enable, a control */
  151.         Rec_$Worksheet.name$.Enable_$Control.name$ = true;
  152. $$endif
  153. $$EndLoop
  154.